home *** CD-ROM | disk | FTP | other *** search
/ SPACE 2 / SPACE - Library 2 - Volume 1.iso / program / 359 / def / errormes.def < prev    next >
Encoding:
Modula Definition  |  1989-01-09  |  2.1 KB  |  48 lines
  1. DEFINITION MODULE ErrorMesg;
  2. (*      File name: ErrorMesg                                                 *)
  3. (*      Creation : Auguest 1985                                              *)
  4. (*      Function : Printer error mesg and exit if nesseary                   *)
  5. (*      By       : Morris                                                    *)
  6. (*                                                                           *)
  7. (*      History of modifcation                                               *)
  8. (*      Date            Who             Why                                  *)
  9. (*                                                                           *)
  10. (*
  11. *    Copyright (c) 1985,1986,1987,1988,1989 by
  12. *    ana-systems, Foster City, California.
  13. *    All Rights Reserved.
  14. *
  15. *    This software is furnished under a license and may be used and copied
  16. *    only  in accordance with  the  terms  of  such  license and  with the
  17. *    inclusion of the above copyright notice.  This software or  any other
  18. *    copies thereof may not be provided or otherwise made available to any
  19. *    other  person.   No title to and ownership of the  software is  herby
  20. *    transferred.
  21. *
  22. *    The information in this software is  subject to change without notice
  23. *    and  should  not be construed as a commitment by ana-systems.   No
  24. *    warranty is implied or expressed.
  25. *
  26. *  SCCID  = "1.1    1/26/86"; 
  27. *)
  28. FROM SYSTEMX IMPORT MERROR;
  29. FROM Files IMPORT FileState;
  30. FROM Program IMPORT CallResult;
  31. EXPORT QUALIFIED FileErrorMesg,MerrorMesg,TerminateMesg,ErrorMessage;
  32.  
  33. PROCEDURE FileErrorMesg( VAR str  : ARRAY OF CHAR;
  34.                             state : FileState;
  35.                             exit  : BOOLEAN);
  36.  
  37. PROCEDURE MerrorMesg(VAR str : ARRAY OF CHAR;
  38.                         exit : BOOLEAN);
  39.  
  40. PROCEDURE ErrorMessage(VAR str : ARRAY OF CHAR;
  41.                           exit : BOOLEAN);
  42.  
  43. PROCEDURE TerminateMesg(VAR str    : ARRAY OF CHAR;
  44.                             reason : CallResult;
  45.                             exit   : BOOLEAN);
  46.  
  47. END ErrorMesg.
  48.